home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / unix / textmstr.shr / tm.hqx / Source Code ƒ / P / PUtils_TextMaster.c < prev    next >
Text File  |  1991-05-09  |  9KB  |  245 lines
  1. /*  PUtils_TextMaster                                                     Utilities
  2.  
  3. File name:  PUtils_TextMaster.C  
  4. Function:  Utilities for the Prototyper specific code.
  5. History: 5/9/91 Original by Prototyper 3.0   */
  6.  
  7.  
  8.  
  9. #include "PCommonTextMaster.h"    /* Common */
  10. #include "Common_TextMaster.h"    /* Common */
  11. #include "PUtils_TextMaster.h"    /* This file */
  12.  
  13. /* ======================================================= */
  14.  
  15. /* Routine: TrapAvailable */
  16. /* Purpose: See if trap is available, non-available traps all have a unique address */
  17.  
  18. Boolean TrapAvailable (trapNumber,tType)                             /* See if a trap is available */
  19. short    trapNumber;
  20. short    tType;
  21. {
  22. #define UnimplementedTrapNumber     0xA89F                         /* Unimplemented trap number */
  23. Boolean    theResult;
  24.  
  25. theResult = (NGetTrapAddress(trapNumber, tType) != GetTrapAddress(UnimplementedTrapNumber));/* Check the two traps */
  26. return(theResult);
  27. }
  28.  
  29.  
  30. /* ======================================================= */
  31.  
  32. /* Routine: GetUserEvent */
  33. /* Purpose: See if any user events are available */
  34.  
  35. void GetUserEvent(UserEventPRec TheUserEvent)
  36. { 
  37. UserEventHRec    NextUserEvent;                                         /* The next user event */
  38.  
  39. TheUserEvent->ID = UserEvent_None;                                    /* Set ID to no events are available */
  40. if (UserEventList != NIL)                                                    /* Get first entry in the list */
  41.     {
  42.     HLock((Handle)UserEventList);                                         /* Lock for safety */
  43.     TheUserEvent->ID = (*UserEventList)->ID;                          /* The event ID */
  44.     TheUserEvent->ID2 = (*UserEventList)->ID2;                       /* The optional ID */
  45.     TheUserEvent->Data1 = (*UserEventList)->Data1;                 /* The optional data */
  46.     TheUserEvent->Data2 = (*UserEventList)->Data2;                 /* The optional data */
  47.     TheUserEvent->theHandle = (*UserEventList)->theHandle;/* The optional handle */
  48.     NextUserEvent = (*UserEventList)->Next;                          /* The next list */
  49.  
  50.     DisposHandle((Handle)UserEventList);                                 /* Remove this list item */
  51.     UserEventList = NextUserEvent;                                       /* Make the next item the new first item */
  52.     }
  53. }
  54.  
  55.  
  56. /* ======================================================= */
  57.  
  58. /* Routine: Add_UserEvent */
  59. /* Purpose: Add a user event */
  60.  
  61. void Add_UserEvent( ID,  ID2, Data1, Data2,  theHandle)
  62. short        ID;
  63. short        ID2;
  64. long        Data1;
  65. long        Data2;
  66. Handle    theHandle;
  67. { 
  68. UserEventHRec    NewUserEvent;                                         /* The new user event */
  69. UserEventHRec    theUserEvent;                                          /* The user event */
  70.  
  71. NewUserEvent = (UserEventHRec)NewHandle(sizeof(UserEventRec));/* Allocate a record */
  72. if (NewUserEvent != NIL)                                                   /* Only do if we got the new record */
  73.     {
  74.     HLock((Handle)NewUserEvent);                                         /* Lock for safety */
  75.     (*NewUserEvent)->ID = ID;                                             /* The event ID */
  76.     (*NewUserEvent)->ID2 = ID2;                                         /* The optional ID */
  77.     (*NewUserEvent)->Data1 = Data1;                                    /* The optional data */
  78.     (*NewUserEvent)->Data2 = Data2;                                    /* The optional data */
  79.     (*NewUserEvent)->theHandle = theHandle;                          /* The optional handle */
  80.     (*NewUserEvent)->Next = NIL;                                        /* No next item after this one */
  81.  
  82.     if (UserEventList == NIL)                                                /* See if anyone is in the list yet */
  83.         UserEventList = NewUserEvent;                                    /* Make this one the first in the list */
  84.     else                                                                         /* Not the first in the list */
  85.         {
  86.         theUserEvent = UserEventList;                                     /* Get the first one */
  87.         while ((*theUserEvent)->Next != NIL)                             /* Get the next one */
  88.             {
  89.             theUserEvent = (*theUserEvent)->Next;
  90.             }
  91.         (*theUserEvent)->Next = NewUserEvent;                         /* Tack on to the end */
  92.         }
  93.     }
  94. }
  95.  
  96. /* ======================================================= */
  97.  
  98.  
  99. /* This is a routine used to open a user selected file */
  100. /* Return TRUE for opened the file OK, else return FALSE */
  101. Boolean Do_The_Open_File (NumberOfTypes)
  102. short    NumberOfTypes;
  103. {
  104. short    Screen_Width, Screen_Height;                                  /* Size of the current screen */
  105. Point    Where;                                                               /* Used for placing the SF dialog */
  106. Boolean    OpenedOK;                                                        /* Flag to return */
  107.  
  108. Screen_Width = screenBits.bounds.right - screenBits.bounds.left;/* Width of this screen */
  109. Screen_Height = screenBits.bounds.bottom - screenBits.bounds.top;
  110.  
  111. Where.h = (Screen_Width / 2) - (304 / 2);                             /* Place to put this dialog */
  112. Where.v = (Screen_Height / 4) - (104 / 2);
  113. if (Where.v < 60)
  114.     Where.v = 60;
  115. InitCursor();
  116. SFGetFile(Where, "/pNot used", NIL, NumberOfTypes, &typeList, NIL, &Reply);
  117.  
  118. OpenedOK = FALSE;                                                         /* Init to did not open the file */
  119. if (Reply.good)                                                               /* Only do if the user did not cancel */
  120.     {
  121.     /* inputFileName = Reply.fName; */
  122.     ErrorCode = FSOpen(&Reply.fName, Reply.vRefNum, &inputRefNum);/* Open the file */
  123.     if (ErrorCode != 0)                                                       /* See if we did not open it cleanly */
  124.         {
  125.         ErrorCode = FSClose(inputRefNum);                                /* Close it, it may have been left open from before */
  126.         ErrorCode = FSOpen(&Reply.fName, Reply.vRefNum, &inputRefNum);/* Try the open again */
  127.         }
  128.  
  129.     if (ErrorCode != 0)                                                       /* See if we did not open it cleanly */
  130.         {
  131.         ErrorCode = FSClose(inputRefNum);                                /* Close it if we can, safety */
  132.         SysBeep(20);                                                          /* Just beep at the user, caller can do more */
  133.         }
  134.     else
  135.         {
  136.         ErrorCode = SetVol(NIL, inputRefNum);                            /*Set to this volume for later opens */
  137.         OpenedOK = TRUE;                                                     /* Flag that we are open OK */
  138.         }
  139.     }
  140. else
  141.     {
  142.     inputRefNum = 0;                                                         /* We did not open */
  143.     inputFileName[0] = 0;                                                    /* No name for a file */
  144.     }
  145. return(OpenedOK);
  146. }
  147.  
  148.  
  149. /* ======================================================= */
  150.  
  151.  
  152.  
  153. /* This is a routine used to save a user selected file */
  154. /* Return TRUE for opened the file OK, else return FALSE */ 
  155. Boolean Do_The_Save_File (creator,  fileType)
  156. OSType    creator;
  157. OSType    fileType;
  158. {
  159. short Screen_Width, Screen_Height;                                     /* Size of the current screen */
  160. Point Where;                                                                 /* Used for placing the SF dialog */
  161. Boolean OpenedOK;                                                          /* Flag to return */
  162. short theVolRefNum;                                                        /* Volume to save the file in */
  163.  
  164. Screen_Width = screenBits.bounds.right - screenBits.bounds.left;/* Width of this screen */
  165. Screen_Height = screenBits.bounds.bottom - screenBits.bounds.top;
  166.  
  167. Where.h = (Screen_Width / 2) - (304 / 2);                             /* Place to put this dialog */
  168. Where.v = (Screen_Height / 4) - (104 / 2);
  169. if (Where.v < 60) 
  170.     Where.v = 60;
  171. InitCursor();
  172. SFPutFile(Where, "\pSave as : ", "\pUntitled.Text", NIL, &Reply);
  173. /* outputFileName = Reply.fName; */                                   /* Save the output file name */
  174. theVolRefNum = Reply.vRefNum;                                          /* Save the volume refnum */
  175. OpenedOK = FALSE;                                                         /* Init to did not open the file */
  176. if (Reply.good)                                                               /* Only do if the user did not cancel */
  177.     {
  178.     ErrorCode = FSDelete(&Reply.fName, theVolRefNum);             /* Delete an older file */
  179.     ErrorCode = Create(&Reply.fName, theVolRefNum, creator, fileType);/* Create the file */
  180.     ErrorCode = FSOpen(&Reply.fName, theVolRefNum, &outputRefNum);/* Try to open the file */
  181.  
  182.     if (ErrorCode == 0)                                                      /* See if we opened it cleanly */
  183.         {
  184.         ErrorCode = SetFPos(outputRefNum, fsFromStart, 0);         /* Start at file beginning */
  185.         ErrorCode = SetVol(NIL, outputRefNum);                          /* Set for later saves */
  186.         OpenedOK = TRUE;                                                     /* We opened the file OK */
  187.         }
  188.     else
  189.         {
  190.         ErrorCode = FSClose(outputRefNum);                              /* Close it if we can, safety */
  191.         SysBeep(20);                                                          /* Just beep at the user, caller can do more */
  192.         outputRefNum = 0;                                                    /* Make sure the refnum is inited */
  193.         }
  194.     }
  195. return(OpenedOK);
  196. }
  197.  
  198.  
  199. /* ======================================================= */
  200.  
  201.  
  202.  
  203. /* Setup a dialog or alert item */ 
  204. void SetupTheItem( theDialog, ItemID, SizeIt, ShowIt,EnableIt,SetTheMax,thePosition, ExtraData, StringID)
  205. DialogPtr    theDialog;
  206. short        ItemID;
  207. Boolean        SizeIt;
  208. Boolean        ShowIt;
  209. Boolean        EnableIt;
  210. Boolean        SetTheMax;
  211. Rect        *thePosition;
  212. long        ExtraData;
  213. short        StringID;
  214. {
  215. Rect        tempRect;                                                         /* Temporary rectangle */
  216. short    DType;                                                               /* Type of dialog item */
  217. Handle    DItem;                                                              /* Handle to the dialog item */
  218. ControlHandle    CItem;                                                     /* Control handle */
  219.  
  220. GetDItem(theDialog,ItemID,&DType,&DItem,&tempRect);            /* Get the item handle and size */
  221. CItem = (ControlHandle)DItem;                                            /* Change to control handle */
  222. if (SizeIt)                                                                     /* Have to resize all CDEF connected controls */
  223.     SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  224. *thePosition = tempRect;                                                  /* Pass back the zone location and size */
  225. if (ExtraData != NIL)                                                         /* See if extra data for a CDEF */
  226.     (*CItem)->contrlData = (Handle)ExtraData;                         /* Send it */
  227. if (StringID != 0)                                                             /* See if a CDEF and needs the title set again*/
  228.     {
  229.     GetIndString(sTemp,StringID,1);                                      /* Get the string */
  230.     SetCTitle(CItem,sTemp);                                                /* Set the string */
  231.     }
  232. if (EnableIt)                                                                   /* See if enable or disable the zone */
  233.     HiliteControl (CItem,0);                                                 /* Enable the zone */
  234. else
  235.     HiliteControl (CItem,255);                                             /* Dim the zone */
  236. if (SetTheMax)
  237.     SetCtlMax(CItem,12345);                                              /* Set the flag to the CDEF */
  238. if (ShowIt)
  239.     ShowControl(CItem);                                                     /* Show it to activate it */
  240.  
  241. }
  242.  
  243. /* ======================================================= */
  244.  
  245.